home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-04-15 | 9.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Simis (archive/simis)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.p*-----|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2a a0 a0 a0 a0 a0 a0 |--------|.*......|
|00000040| a0 a0 a0 a0 63 2d 31 32 | 38 a0 a0 72 61 6d a0 74 |....c-12|8..ram.t|
|00000050| 65 73 74 a0 a0 a0 42 59 | a0 67 4c 45 4e a0 62 52 |est...BY|.gLEN.bR|
|00000060| 45 44 4f 4e 0d 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |EDON.*--|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2a 0d 2a a0 |--------|---.*.*.|
|000000a0| 74 48 49 53 a0 55 53 45 | 53 a0 42 4f 54 48 a0 54 |tHIS.USE|S.BOTH.T|
|000000b0| 48 45 a0 48 49 52 45 53 | a0 53 43 52 45 45 4e a0 |HE.HIRES|.SCREEN.|
|000000c0| 41 4e 44 a0 38 30 a0 43 | 4f 4c 55 4d 4e a0 53 43 |AND.80.C|OLUMN.SC|
|000000d0| 52 45 45 4e 0d 2a a0 54 | 4f a0 54 45 53 54 a0 52 |REEN.*.T|O.TEST.R|
|000000e0| 41 4d a0 49 4e a0 42 4f | 54 48 a0 36 34 4b a0 42 |AM.IN.BO|TH.64K.B|
|000000f0| 41 4e 4b 53 a0 42 45 54 | 57 45 45 4e a0 24 32 30 |ANKS.BET|WEEN.$20|
|00000100| 30 30 a0 26 a0 24 66 66 | 30 30 2e 0d 2a a0 69 54 |00.&.$ff|00..*.iT|
|00000110| a0 43 41 4e a0 42 45 a0 | 55 53 45 44 a0 49 4e a0 |.CAN.BE.|USED.IN.|
|00000120| 34 30 a0 4f 52 a0 38 30 | a0 43 4f 4c 55 4d 4e a0 |40.OR.80|.COLUMN.|
|00000130| 4d 4f 44 45 2c a0 42 55 | 54 a0 59 4f 55 a0 57 49 |MODE,.BU|T.YOU.WI|
|00000140| 4c 4c 0d 2a a0 53 45 45 | a0 54 48 45 a0 45 4e 54 |LL.*.SEE|.THE.ENT|
|00000150| 49 52 45 a0 44 49 53 50 | 4c 41 59 a0 4f 4e 4c 59 |IRE.DISP|LAY.ONLY|
|00000160| a0 49 46 a0 59 4f 55 a0 | 48 41 56 45 a0 54 57 4f |.IF.YOU.|HAVE.TWO|
|00000170| a0 4d 4f 4e 49 54 4f 52 | 53 0d 2a a0 41 54 54 41 |.MONITOR|S.*.ATTA|
|00000180| 43 48 45 44 3a a0 4f 4e | 45 a0 46 4f 52 a0 34 30 |CHED:.ON|E.FOR.40|
|00000190| a0 41 4e 44 a0 4f 4e 45 | a0 46 4f 52 a0 38 30 2e |.AND.ONE|.FOR.80.|
|000001a0| 0d 2a 0d 2a a0 72 41 4d | a0 49 53 a0 54 45 53 54 |.*.*.rAM|.IS.TEST|
|000001b0| 45 44 a0 42 59 a0 46 49 | 4c 4c 49 4e 47 a0 57 49 |ED.BY.FI|LLING.WI|
|000001c0| 54 48 a0 43 45 52 54 41 | 49 4e a0 42 59 54 45 53 |TH.CERTA|IN.BYTES|
|000001d0| 2c a0 4d 4f 56 49 4e 47 | 0d 2a a0 54 48 49 53 a0 |,.MOVING|.*.THIS.|
|000001e0| 54 4f a0 54 48 45 a0 48 | 49 52 45 53 a0 53 43 52 |TO.THE.H|IRES.SCR|
|000001f0| 45 45 4e a0 28 57 48 45 | 52 45 a0 59 4f 55 a0 43 |EEN.(WHE|RE.YOU.C|
|00000200| 41 4e a0 53 45 45 a0 57 | 48 41 54 a0 49 53 0d 2a |AN.SEE.W|HAT.IS.*|
|00000210| a0 48 41 50 50 45 4e 49 | 4e 47 29 a0 54 48 45 4e |.HAPPENI|NG).THEN|
|00000220| a0 54 45 53 54 49 4e 47 | a0 54 48 41 54 a0 49 54 |.TESTING|.THAT.IT|
|00000230| a0 49 53 a0 53 54 49 4c | 4c a0 46 49 4c 4c 45 44 |.IS.STIL|L.FILLED|
|00000240| a0 57 49 54 48 0d 2a a0 | 54 48 41 54 a0 42 59 54 |.WITH.*.|THAT.BYT|
|00000250| 45 2e a0 a0 77 48 45 4e | a0 41 4e a0 45 52 52 4f |E...wHEN|.AN.ERRO|
|00000260| 52 a0 4f 43 43 55 52 53 | 2c a0 54 48 45 a0 42 41 |R.OCCURS|,.THE.BA|
|00000270| 4e 4b a0 41 4e 44 a0 41 | 44 44 52 45 53 53 0d 2a |NK.AND.A|DDRESS.*|
|00000280| a0 4f 46 a0 54 48 45 a0 | 45 52 52 4f 52 a0 49 53 |.OF.THE.|ERROR.IS|
|00000290| a0 44 49 53 50 4c 41 59 | 45 44 a0 4f 4e a0 54 48 |.DISPLAY|ED.ON.TH|
|000002a0| 45 a0 38 30 a0 43 4f 4c | 55 4d 4e a0 53 43 52 45 |E.80.COL|UMN.SCRE|
|000002b0| 45 4e 2e 0d 2a a0 6f 4e | 4c 59 a0 54 48 45 a0 46 |EN..*.oN|LY.THE.F|
|000002c0| 49 52 53 54 a0 32 30 30 | a0 45 52 52 4f 52 53 a0 |IRST.200|.ERRORS.|
|000002d0| 41 52 45 a0 53 48 4f 57 | 4e 2e 0d 2a 0d 2a a0 72 |ARE.SHOW|N..*.*.r|
|000002e0| 41 4d a0 49 53 a0 54 45 | 53 54 45 44 a0 41 54 a0 |AM.IS.TE|STED.AT.|
|000002f0| 42 4f 54 48 a0 31 a0 41 | 4e 44 a0 32 a0 4d 48 5a |BOTH.1.A|ND.2.MHZ|
|00000300| a0 53 50 45 45 44 a0 41 | 4e 44 a0 54 48 49 53 a0 |.SPEED.A|ND.THIS.|
|00000310| 4d 4f 44 45 0d 2a a0 49 | 53 a0 53 48 4f 57 4e a0 |MODE.*.I|S.SHOWN.|
|00000320| 4f 4e a0 54 48 45 a0 38 | 30 a0 43 4f 4c 55 4d 4e |ON.THE.8|0.COLUMN|
|00000330| a0 53 43 52 45 45 4e 2e | a0 a0 64 55 52 49 4e 47 |.SCREEN.|..dURING|
|00000340| a0 54 48 45 a0 46 41 53 | 54 0d 2a a0 43 59 43 4c |.THE.FAS|T.*.CYCL|
|00000350| 45 53 a0 59 4f 55 a0 53 | 45 45 a0 4f 4e 4c 59 a0 |ES.YOU.S|EE.ONLY.|
|00000360| 41 a0 57 48 49 54 45 a0 | 53 43 52 45 45 4e a0 4f |A.WHITE.|SCREEN.O|
|00000370| 4e a0 54 48 45 a0 48 49 | 52 45 53 a0 53 43 52 45 |N.THE.HI|RES.SCRE|
|00000380| 45 4e 2e 0d 2a 0d 2a a0 | 77 48 45 4e a0 49 4e a0 |EN..*.*.|wHEN.IN.|
|00000390| 66 61 73 74 a0 4d 4f 44 | 45 a0 41 a0 54 45 53 54 |fast.MOD|E.A.TEST|
|000003a0| a0 49 53 a0 4d 41 44 45 | a0 4f 46 a0 54 48 45 a0 |.IS.MADE|.OF.THE.|
|000003b0| 49 4e 54 45 47 52 49 54 | 59 a0 4f 46 0d 2a a0 48 |INTEGRIT|Y.OF.*.H|
|000003c0| 49 47 48 a0 53 50 45 45 | 44 a0 43 52 4f 53 53 a0 |IGH.SPEE|D.CROSS.|
|000003d0| 42 41 4e 4b a0 28 4d 41 | 59 42 45 29 a0 54 52 41 |BANK.(MA|YBE).TRA|
|000003e0| 4e 53 46 45 52 53 a0 42 | 59 a0 4d 4f 56 49 4e 47 |NSFERS.B|Y.MOVING|
|000003f0| a0 54 4f 0d 2a a0 41 4e | 44 a0 46 52 4f 4d a0 54 |.TO.*.AN|D.FROM.T|
|00000400| 48 45 a0 48 49 52 45 53 | a0 53 43 52 45 45 4e a0 |HE.HIRES|.SCREEN.|
|00000410| 41 4e 44 a0 43 48 45 43 | 4b 49 4e 47 a0 54 48 45 |AND.CHEC|KING.THE|
|00000420| a0 52 45 53 55 4c 54 2e | 0d 2a a0 61 a0 46 41 49 |.RESULT.|.*.a.FAI|
|00000430| 4c 55 52 45 a0 4f 46 a0 | 54 48 45 a0 4d 4f 56 45 |LURE.OF.|THE.MOVE|
|00000440| a0 54 4f a0 54 48 45 a0 | 48 49 52 45 53 a0 53 43 |.TO.THE.|HIRES.SC|
|00000450| 52 45 45 4e a0 49 53 a0 | 53 48 4f 57 4e 0d 2a a0 |REEN.IS.|SHOWN.*.|
|00000460| 42 59 a0 41 a0 22 3c 22 | a0 4f 4e a0 54 48 45 a0 |BY.A."<"|.ON.THE.|
|00000470| 41 44 44 52 45 53 53 2c | a0 41 4e 44 2c a0 46 4f |ADDRESS,|.AND,.FO|
|00000480| 52 a0 41 a0 4d 4f 56 45 | a0 46 52 4f 4d a0 54 48 |R.A.MOVE|.FROM.TH|
|00000490| 45 0d 2a a0 48 49 52 45 | 53 a0 53 43 52 45 45 4e |E.*.HIRE|S.SCREEN|
|000004a0| 2c a0 42 59 a0 41 a0 22 | 3e 22 2e a0 a0 69 4e a0 |,.BY.A."|>"...iN.|
|000004b0| 54 48 45 a0 4c 41 54 54 | 45 52 a0 43 41 53 45 a0 |THE.LATT|ER.CASE.|
|000004c0| 54 48 45 a0 42 59 54 45 | 0d 2a a0 42 45 49 4e 47 |THE.BYTE|.*.BEING|
|000004d0| a0 54 45 53 54 45 44 a0 | 49 53 a0 41 43 54 55 41 |.TESTED.|IS.ACTUA|
|000004e0| 4c 4c 59 a0 54 48 45 a0 | 43 4f 4d 50 4c 49 4d 45 |LLY.THE.|COMPLIME|
|000004f0| 4e 54 a0 4f 46 a0 54 48 | 45 a0 4f 4e 45 0d 2a a0 |NT.OF.TH|E.ONE.*.|
|00000500| 53 48 4f 57 4e a0 4f 4e | a0 54 48 45 a0 53 43 52 |SHOWN.ON|.THE.SCR|
|00000510| 45 45 4e 21 0d 2a 0d 2a | a0 74 48 49 53 a0 50 52 |EEN!.*.*|.tHIS.PR|
|00000520| 4f 47 52 41 4d a0 4e 45 | 56 45 52 a0 45 4e 44 53 |OGRAM.NE|VER.ENDS|
|00000530| a0 2d a0 59 4f 55 a0 48 | 41 56 45 a0 54 4f a0 52 |.-.YOU.H|AVE.TO.R|
|00000540| 45 53 45 54 a0 54 4f a0 | 45 58 49 54 2e 0d 2a 2d |ESET.TO.|EXIT..*-|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 0d 0d 20 65 | 78 70 20 6f 66 66 0d 20 |----.. e|xp off. |
|00000590| 74 72 0d 0d 2a a0 6f 55 | 52 a0 5a 50 a0 55 53 41 |tr..*.oU|R.ZP.USA|
|000005a0| 47 45 3a 0d 0d 62 61 6e | 6b 20 3d 20 24 36 33 20 |GE:..ban|k = $63 |
|000005b0| 3b 62 41 4e 4b a0 28 65 | 6f 72 a0 23 31 29 a0 42 |;bANK.(e|or.#1).B|
|000005c0| 45 49 4e 47 a0 54 45 53 | 54 45 44 0d 62 79 74 65 |EING.TES|TED.byte|
|000005d0| 20 3d 20 24 36 34 20 3b | 62 59 54 45 a0 55 53 45 | = $64 ;|bYTE.USE|
|000005e0| 44 a0 46 4f 52 a0 54 45 | 53 54 0d 73 70 65 65 64 |D.FOR.TE|ST.speed|
|000005f0| 7a 20 3d 20 24 36 35 20 | 3b 73 50 45 45 44 a0 4f |z = $65 |;sPEED.O|
|00000600| 46 a0 54 45 53 54 0d 65 | 72 72 6e 75 6d 20 3d 20 |F.TEST.e|rrnum = |
|00000610| 24 36 36 20 3b 63 55 52 | 52 45 4e 54 a0 23 a0 4f |$66 ;cUR|RENT.#.O|
|00000620| 46 a0 46 4f 55 4e 44 a0 | 45 52 52 4f 52 0d 63 68 |F.FOUND.|ERROR.ch|
|00000630| 61 72 20 3d 20 24 36 37 | 20 3b 66 4c 41 47 a0 46 |ar = $67| ;fLAG.F|
|00000640| 4f 52 a0 48 49 47 48 a0 | 53 50 45 45 44 a0 54 52 |OR.HIGH.|SPEED.TR|
|00000650| 41 4e 53 a0 54 45 53 54 | 0d 6d 6f 64 65 20 3d 20 |ANS.TEST|.mode = |
|00000660| 24 36 38 20 3b 66 4c 41 | 47 53 a0 52 41 4e 44 4f |$68 ;fLA|GS.RANDO|
|00000670| 4d a0 4d 4f 44 45 0d 70 | 6e 74 6c 20 3d 20 24 66 |M.MODE.p|ntl = $f|
|00000680| 61 20 3b 70 4f 49 4e 54 | 45 52 a0 54 4f a0 4d 45 |a ;pOINT|ER.TO.ME|
|00000690| 4d 4f 52 59 a0 54 45 53 | 54 45 44 0d 70 6e 74 68 |MORY.TES|TED.pnth|
|000006a0| 20 3d 20 70 6e 74 6c 2b | 31 0d 62 61 73 6c 20 3d | = pntl+|1.basl =|
|000006b0| 20 24 66 63 20 3b 70 4f | 49 4e 54 45 52 a0 54 4f | $fc ;pO|INTER.TO|
|000006c0| a0 48 49 52 45 53 a0 53 | 43 52 45 45 4e a0 28 45 |.HIRES.S|CREEN.(E|
|000006d0| 54 43 29 0d 62 61 73 68 | 20 3d 20 62 61 73 6c 2b |TC).bash| = basl+|
|000006e0| 31 0d 70 61 67 65 20 3d | 20 24 66 65 20 3b 66 49 |1.page =| $fe ;fI|
|000006f0| 52 53 54 a0 50 41 47 45 | a0 4f 4e a0 52 4e 47 a0 |RST.PAGE|.ON.RNG.|
|00000700| 42 45 49 4e 47 a0 54 45 | 53 54 45 44 0d 0d 2a a0 |BEING.TE|STED..*.|
|00000710| 63 62 6d a0 53 54 55 46 | 46 3a 0d 0d 61 72 67 20 |cbm.STUF|F:..arg |
|00000720| 3d 20 24 36 61 20 3b 66 | 4c 4f 41 54 49 4e 47 a0 |= $6a ;f|LOATING.|
|00000730| 50 4f 49 4e 54 a0 41 43 | 43 32 a0 26 a0 52 4e 44 |POINT.AC|C2.&.RND|
|00000740| a0 53 45 45 44 0d 73 65 | 65 64 20 3d 20 24 38 62 |.SEED.se|ed = $8b|
|00000750| 20 3b a0 55 53 45 44 a0 | 42 59 a0 49 4e 43 4c 55 | ;.USED.|BY.INCLU|
|00000760| 44 45 44 a0 52 4e 44 a0 | 23 a0 47 45 4e 52 0d 67 |DED.RND.|#.GENR.g|
|00000770| 72 61 70 68 6d 20 3d 20 | 24 64 38 20 3b 63 31 32 |raphm = |$d8 ;c12|
|00000780| 38 a0 54 45 58 54 2f 47 | 52 41 50 48 49 43 53 a0 |8.TEXT/G|RAPHICS.|
|00000790| 46 4c 41 47 0d 0d 77 72 | 6d 76 65 63 20 3d 20 24 |FLAG..wr|mvec = $|
|000007a0| 33 30 32 20 3b 72 55 4e | 2f 52 45 53 54 4f 52 45 |302 ;rUN|/RESTORE|
|000007b0| a0 52 45 54 55 52 4e a0 | 41 44 44 52 45 53 53 0d |.RETURN.|ADDRESS.|
|000007c0| 0d 62 6f 72 64 65 72 20 | 3d 20 24 64 30 32 30 0d |.border |= $d020.|
|000007d0| 73 70 65 65 64 20 3d 20 | 24 64 30 33 30 0d 0d 70 |speed = |$d030..p|
|000007e0| 72 69 6d 6d 20 3d 20 24 | 66 66 37 64 0d 63 68 72 |rimm = $|ff7d.chr|
|000007f0| 6f 75 74 20 3d 20 24 66 | 66 64 32 0d 70 6c 6f 74 |out = $f|fd2.plot|
|00000800| 20 3d 20 24 66 66 66 30 | 0d 0d 2a a0 6f 55 52 a0 | = $fff0|..*.oUR.|
|00000810| 43 4f 4e 46 49 47 55 52 | 41 54 49 4f 4e a0 53 45 |CONFIGUR|ATION.SE|
|00000820| 54 55 50 3a 0d 0d 72 61 | 6d 31 20 3d 20 24 66 66 |TUP:..ra|m1 = $ff|
|00000830| 30 32 0d 72 61 6d 30 20 | 3d 20 24 66 66 30 33 0d |02.ram0 |= $ff03.|
|00000840| 72 61 6d 68 61 6c 66 20 | 3d 20 24 66 66 30 34 20 |ramhalf |= $ff04 |
|00000850| 3b 75 53 45 44 a0 46 4f | 52 a0 41 43 43 45 53 53 |;uSED.FO|R.ACCESS|
|00000860| 49 4e 47 a0 4b 45 52 4e | 45 4c 0d 0d 61 64 64 20 |ING.KERN|EL..add |
|00000870| 6d 61 63 20 3b 75 53 45 | 44 a0 49 4e a0 72 6e 64 |mac ;uSE|D.IN.rnd|
|00000880| a0 52 4f 55 54 49 4e 45 | 0d 20 6c 64 61 20 61 72 |.ROUTINE|. lda ar|
|00000890| 67 2b 5d 31 0d 20 61 64 | 63 20 73 65 65 64 2b 5d |g+]1. ad|c seed+]|
|000008a0| 31 0d 20 73 74 61 20 61 | 72 67 2b 5d 31 0d 20 3c |1. sta a|rg+]1. <|
|000008b0| 3c 3c 0d 0d 72 6f 74 20 | 6d 61 63 20 3b 75 53 45 |<<..rot |mac ;uSE|
|000008c0| 44 a0 49 4e a0 72 6e 64 | a0 52 4f 55 54 49 4e 45 |D.IN.rnd|.ROUTINE|
|000008d0| 0d 20 6c 64 61 20 73 65 | 65 64 2b 5d 31 0d 20 72 |. lda se|ed+]1. r|
|000008e0| 6f 6c 0d 20 73 74 61 20 | 61 72 67 2b 5d 31 0d 20 |ol. sta |arg+]1. |
|000008f0| 3c 3c 3c 0d 0d 20 61 73 | 74 20 35 30 0d 0d 20 6f |<<<.. as|t 50.. o|
|00000900| 72 67 20 24 31 33 30 30 | 0d 0d 20 65 72 72 20 73 |rg $1300|.. err s|
|00000910| 74 61 72 74 26 24 66 66 | 20 3b 64 45 4d 41 4e 44 |tart&$ff| ;dEMAND|
|00000920| a0 50 41 47 45 a0 42 4f | 55 4e 44 41 52 59 0d 0d |.PAGE.BO|UNDARY..|
|00000930| 73 74 61 72 74 20 63 6c | 64 20 3b 6a 55 53 54 a0 |start cl|d ;jUST.|
|00000940| 49 4e a0 43 41 53 45 0d | 20 63 6c 69 0d 20 6c 64 |IN.CASE.| cli. ld|
|00000950| 61 20 23 73 74 61 72 74 | 20 3b 3d 30 0d 20 73 74 |a #start| ;=0. st|
|00000960| 61 20 24 66 66 30 30 0d | 20 73 74 61 20 77 72 6d |a $ff00.| sta wrm|
|00000970| 76 65 63 0d 20 73 74 61 | 20 65 72 72 6e 75 6d 20 |vec. sta| errnum |
|00000980| 3b 69 4e 49 54 a0 30 a0 | 45 52 52 4f 52 53 0d 20 |;iNIT.0.|ERRORS. |
|00000990| 73 74 61 20 70 61 73 6e | 75 6d 0d 20 73 74 61 20 |sta pasn|um. sta |
|000009a0| 70 61 73 6e 75 6d 2b 31 | 0d 20 6c 64 61 20 23 3e |pasnum+1|. lda #>|
|000009b0| 73 74 61 72 74 20 3b 73 | 45 54 a0 55 50 a0 73 74 |start ;s|ET.UP.st|
|000009c0| 6f 70 2d 72 65 73 74 6f | 72 65 a0 52 45 45 4e 54 |op-resto|re.REENT|
|000009d0| 52 59 0d 20 73 74 61 20 | 77 72 6d 76 65 63 2b 31 |RY. sta |wrmvec+1|
|000009e0| 0d 20 6c 64 61 20 23 25 | 31 31 30 20 3b 73 45 54 |. lda #%|110 ;sET|
|000009f0| a0 43 4f 4d 4d 4f 4e a0 | 54 4f a0 24 32 30 30 30 |.COMMON.|TO.$2000|
|00000a00| a0 4f 4e a0 42 4f 54 54 | 4f 4d 0d 20 73 74 61 20 |.ON.BOTT|OM. sta |
|00000a10| 24 64 35 30 36 0d 20 6c | 64 61 20 23 25 30 31 31 |$d506. l|da #%011|
|00000a20| 31 31 31 31 31 0d 20 73 | 74 61 20 24 64 35 30 32 |11111. s|ta $d502|
|00000a30| 20 3b 65 4d 55 4c 41 54 | 45 a0 6d 45 52 4c 49 4e | ;eMULAT|E.mERLIN|
|00000a40| 27 53 a0 53 45 54 55 50 | a0 53 4f 0d 20 6c 73 72 |'S.SETUP|.SO. lsr|
|00000a50| 20 3b a0 54 48 41 54 a0 | 54 48 49 53 a0 43 41 4e | ;.THAT.|THIS.CAN|
|00000a60| a0 42 45 a0 22 62 6f 6f | 74 45 44 22 0d 20 73 74 |.BE."boo|tED". st|
|00000a70| 61 20 24 64 35 30 33 20 | 3b a0 41 53 a0 57 45 4c |a $d503 |;.AS.WEL|
|00000a80| 4c a0 41 53 a0 52 55 4e | a0 46 52 4f 4d a0 6d 45 |L.AS.RUN|.FROM.mE|
|00000a90| 52 4c 49 4e 0d 20 6c 64 | 61 20 23 25 30 30 30 30 |RLIN. ld|a #%0000|
|00000aa0| 31 31 31 30 0d 20 73 74 | 61 20 24 64 35 30 34 0d |1110. st|a $d504.|
|00000ab0| 20 73 74 61 20 72 61 6d | 31 0d 20 73 74 61 20 24 | sta ram|1. sta $|
|00000ac0| 66 66 66 35 20 3b 65 4e | 41 42 4c 45 a0 52 45 42 |fff5 ;eN|ABLE.REB|
|00000ad0| 4f 4f 54 0d 20 73 74 61 | 20 72 61 6d 68 61 6c 66 |OOT. sta| ramhalf|
|00000ae0| 0d 20 6c 64 61 20 23 31 | 34 32 20 3b 73 45 54 a0 |. lda #1|42 ;sET.|
|00000af0| 55 43 2f 47 52 a0 43 48 | 41 52 a0 53 45 54 0d 20 |UC/GR.CH|AR.SET. |
|00000b00| 6a 73 72 20 63 68 72 6f | 75 74 0d 20 6c 64 61 20 |jsr chro|ut. lda |
|00000b10| 23 24 39 33 20 3b 63 4c | 45 41 52 a0 54 45 58 54 |#$93 ;cL|EAR.TEXT|
|00000b20| a0 53 43 52 45 45 4e 0d | 20 6a 73 72 20 63 68 72 |.SCREEN.| jsr chr|
|00000b30| 6f 75 74 0d 20 6c 64 78 | 20 23 24 32 30 20 3b 73 |out. ldx| #$20 ;s|
|00000b40| 45 54 a0 42 49 54 a0 4d | 41 50 a0 4d 4f 44 45 a0 |ET.BIT.M|AP.MODE.|
|00000b50| 28 62 2f 77 29 0d 20 73 | 74 78 20 67 72 61 70 68 |(b/w). s|tx graph|
|00000b60| 6d 20 3b 65 44 49 54 4f | 52 a0 41 55 54 4f 4d 41 |m ;eDITO|R.AUTOMA|
|00000b70| 54 49 43 41 4c 4c 59 a0 | 53 57 49 54 43 48 45 53 |TICALLY.|SWITCHES|
|00000b80| 0d 20 6c 64 61 20 24 64 | 30 31 31 0d 20 6f 72 61 |. lda $d|011. ora|
|00000b90| 20 23 24 31 30 0d 20 73 | 74 61 20 24 64 30 31 31 | #$10. s|ta $d011|
|00000ba0| 20 3b a0 42 55 54 a0 49 | 54 a0 44 4f 45 53 4e 27 | ;.BUT.I|T.DOESN'|
|00000bb0| 54 a0 44 4f a0 54 48 49 | 53 0d 20 6c 64 78 20 23 |T.DO.THI|S. ldx #|
|00000bc0| 24 31 63 0d 20 73 74 78 | 20 62 61 73 68 0d 20 6c |$1c. stx| bash. l|
|00000bd0| 64 78 20 23 34 0d 20 6c | 64 79 20 23 30 0d 20 73 |dx #4. l|dy #0. s|
|00000be0| 74 79 20 62 61 73 6c 20 | 3b 69 4e 49 54 a0 62 61 |ty basl |;iNIT.ba|
|00000bf0| 73 6c 3d 30 a0 41 4c 57 | 41 59 53 0d 20 6c 64 61 |sl=0.ALW|AYS. lda|
|00000c00| 20 23 24 66 30 0d 3a 72 | 63 6c 20 73 74 61 20 28 | #$f0.:r|cl sta (|
|00000c10| 62 61 73 6c 29 2c 79 20 | 3b 73 45 54 a0 55 50 a0 |basl),y |;sET.UP.|
|00000c20| 43 4f 4c 4f 52 a0 4d 41 | 54 52 49 58 a0 31 0d 20 |COLOR.MA|TRIX.1. |
|00000c30| 69 6e 79 0d 20 62 6e 65 | 20 3a 72 63 6c 0d 20 69 |iny. bne| :rcl. i|
|00000c40| 6e 63 20 62 61 73 68 0d | 20 64 65 78 0d 20 62 6e |nc bash.| dex. bn|
|00000c50| 65 20 3a 72 63 6c 0d 20 | 73 74 78 20 70 6e 74 6c |e :rcl. |stx pntl|
|00000c60| 20 3b 69 4e 49 54 a0 70 | 6e 74 6c 3d 30 a0 41 4c | ;iNIT.p|ntl=0.AL|
|00000c70| 57 41 59 53 0d 20 73 74 | 78 20 62 6f 72 64 65 72 |WAYS. st|x border|
|00000c80| 20 3b 73 45 54 a0 42 4c | 41 43 4b a0 42 4f 52 44 | ;sET.BL|ACK.BORD|
|00000c90| 45 52 0d 0d 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ER..*---|--------|
|00000ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cb0| 2d 2d 2d 2d 0d 2a a0 6d | 41 49 4e a0 50 52 4f 47 |----.*.m|AIN.PROG|
|00000cc0| 52 41 4d a0 4c 4f 4f 50 | a0 28 46 4f 52 45 56 45 |RAM.LOOP|.(FOREVE|
|00000cd0| 52 29 3a 0d 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |R):.*---|--------|
|00000ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cf0| 2d 2d 2d 2d 0d 0d 6c 6f | 6f 70 20 73 65 64 0d 20 |----..lo|op sed. |
|00000d00| 6c 64 61 20 70 61 73 6e | 75 6d 20 3b 63 4f 55 4e |lda pasn|um ;cOUN|
|00000d10| 54 a0 50 41 53 53 45 53 | a0 49 4e a0 62 63 64 0d |T.PASSES|.IN.bcd.|
|00000d20| 20 63 6c 63 0d 20 61 64 | 63 20 23 31 0d 20 73 74 | clc. ad|c #1. st|
|00000d30| 61 20 70 61 73 6e 75 6d | 0d 20 6c 64 61 20 70 61 |a pasnum|. lda pa|
|00000d40| 73 6e 75 6d 2b 31 0d 20 | 61 64 63 20 23 30 0d 20 |snum+1. |adc #0. |
|00000d50| 73 74 61 20 70 61 73 6e | 75 6d 2b 31 0d 20 63 6c |sta pasn|um+1. cl|
|00000d60| 64 0d 20 6c 64 61 20 23 | 25 30 30 30 30 30 30 30 |d. lda #|%0000000|
|00000d70| 30 0d 20 73 74 61 20 6d | 6f 64 65 20 3b 63 4c 45 |0. sta m|ode ;cLE|
|00000d80| 41 52 a0 72 6e 64 a0 4d | 4f 44 45 0d 20 6a 73 72 |AR.rnd.M|ODE. jsr|
|00000d90| 20 74 65 73 74 0d 20 6c | 64 61 20 23 25 31 30 31 | test. l|da #%101|
|00000da0| 30 31 30 31 30 0d 20 6a | 73 72 20 74 65 73 74 0d |01010. j|sr test.|
|00000db0| 20 6c 64 61 20 23 25 30 | 31 30 31 30 31 30 31 0d | lda #%0|1010101.|
|00000dc0| 20 6a 73 72 20 74 65 73 | 74 0d 20 6c 64 61 20 23 | jsr tes|t. lda #|
|00000dd0| 25 30 30 31 31 30 30 31 | 31 0d 20 6a 73 72 20 74 |%0011001|1. jsr t|
|00000de0| 65 73 74 0d 20 6c 64 61 | 20 23 25 31 31 30 30 31 |est. lda| #%11001|
|00000df0| 31 30 30 0d 20 6a 73 72 | 20 74 65 73 74 0d 20 6c |100. jsr| test. l|
|00000e00| 64 61 20 23 25 31 30 30 | 31 31 30 30 31 0d 20 6a |da #%100|11001. j|
|00000e10| 73 72 20 74 65 73 74 0d | 20 6c 64 61 20 23 25 30 |sr test.| lda #%0|
|00000e20| 31 31 30 30 31 31 30 0d | 20 6a 73 72 20 74 65 73 |1100110.| jsr tes|
|00000e30| 74 0d 20 6c 64 61 20 23 | 25 31 31 31 31 30 30 30 |t. lda #|%1111000|
|00000e40| 30 0d 20 6a 73 72 20 74 | 65 73 74 0d 20 6c 64 61 |0. jsr t|est. lda|
|00000e50| 20 23 25 30 30 30 30 31 | 31 31 31 0d 20 6a 73 72 | #%00001|111. jsr|
|00000e60| 20 74 65 73 74 0d 20 6c | 64 61 20 23 25 31 31 31 | test. l|da #%111|
|00000e70| 31 31 31 31 31 0d 20 6a | 73 72 20 74 65 73 74 0d |11111. j|sr test.|
|00000e80| 20 73 65 63 0d 20 72 6f | 72 20 6d 6f 64 65 20 3b | sec. ro|r mode ;|
|00000e90| 73 45 54 a0 72 6e 64 a0 | 4d 4f 44 45 0d 20 6a 73 |sET.rnd.|MODE. js|
|00000ea0| 72 20 74 65 73 74 20 3b | 64 4f a0 54 48 45 a0 72 |r test ;|dO.THE.r|
|00000eb0| 6e 64 a0 54 45 53 54 0d | 20 6a 6d 70 20 6c 6f 6f |nd.TEST.| jmp loo|
|00000ec0| 70 20 3b 6c 4f 4f 50 a0 | 46 4f 52 45 56 45 52 21 |p ;lOOP.|FOREVER!|
|00000ed0| 0d 0d 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..*-----|--------|
|00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 0d | 2a a0 72 4f 55 54 49 4e |-------.|*.rOUTIN|
|00000f10| 45 a0 54 4f a0 54 45 53 | 54 a0 41 4c 4c a0 54 45 |E.TO.TES|T.ALL.TE|
|00000f20| 53 54 45 44 a0 4d 45 4d | 4f 52 59 a0 57 49 54 48 |STED.MEM|ORY.WITH|
|00000f30| a0 42 59 54 45 a0 49 4e | a0 61 63 63 2e 0d 2a 2d |.BYTE.IN|.acc..*-|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f70| 2d 2d 2d 0d 0d 74 65 73 | 74 20 73 74 61 20 62 79 |---..tes|t sta by|
|00000f80| 74 65 20 3b 62 59 54 45 | a0 54 4f a0 57 52 49 54 |te ;bYTE|.TO.WRIT|
|00000f90| 45 a0 54 4f a0 4d 45 4d | 4f 52 59 0d 20 6c 64 61 |E.TO.MEM|ORY. lda|
|00000fa0| 20 23 31 0d 20 73 74 61 | 20 73 70 65 65 64 7a 20 | #1. sta| speedz |
|00000fb0| 3b 69 4e 49 54 a0 53 4c | 4f 57 2f 46 41 53 54 a0 |;iNIT.SL|OW/FAST.|
|00000fc0| 46 4c 41 47 a0 54 4f a0 | 46 41 53 54 0d 3a 6e 73 |FLAG.TO.|FAST.:ns|
|00000fd0| 20 73 74 61 20 72 61 6d | 68 61 6c 66 0d 20 62 69 | sta ram|half. bi|
|00000fe0| 74 20 6d 6f 64 65 0d 20 | 62 70 6c 20 3a 6c 73 20 |t mode. |bpl :ls |
|00000ff0| 3b 62 52 41 4e 43 48 a0 | 49 46 a0 4e 4f 54 a0 52 |;bRANCH.|IF.NOT.R|
|00001000| 41 4e 44 4f 4d a0 4d 4f | 44 45 0d 20 6a 73 72 20 |ANDOM.MO|DE. jsr |
|00001010| 70 72 69 6d 6d 0d 20 64 | 66 62 20 31 39 20 3b 68 |primm. d|fb 19 ;h|
|00001020| 4f 4d 45 0d 20 74 78 74 | 20 27 46 49 4c 4c 49 4e |OME. txt| 'FILLIN|
|00001030| 47 a0 4d 45 4d 4f 52 59 | a0 57 49 54 48 a0 52 41 |G.MEMORY|.WITH.RA|
|00001040| 4e 44 4f 4d a0 44 41 54 | 41 2e 27 0d 20 64 66 62 |NDOM.DAT|A.'. dfb|
|00001050| 20 32 37 2c 27 51 27 2c | 30 20 3b 63 4c 45 41 52 | 27,'Q',|0 ;cLEAR|
|00001060| a0 54 4f a0 45 4e 44 a0 | 4f 46 a0 4c 49 4e 45 0d |.TO.END.|OF.LINE.|
|00001070| 20 6c 64 61 20 23 31 20 | 3b 66 49 4c 4c a0 41 54 | lda #1 |;fILL.AT|
|00001080| a0 54 4f 50 a0 53 50 45 | 45 44 a0 45 56 45 4e a0 |.TOP.SPE|ED.EVEN.|
|00001090| 49 4e 0d 20 73 74 61 20 | 73 70 65 65 64 20 3b a0 |IN. sta |speed ;.|
|000010a0| 53 4c 4f 57 a0 4d 4f 44 | 45 0d 20 6c 64 78 20 23 |SLOW.MOD|E. ldx #|
|000010b0| 33 0d 5d 6c 75 70 20 6c | 64 61 20 73 65 65 64 2b |3.]lup l|da seed+|
|000010c0| 31 2c 78 20 3b 73 41 56 | 45 a0 53 45 45 44 a0 53 |1,x ;sAV|E.SEED.S|
|000010d0| 4f a0 57 45 a0 43 41 4e | a0 47 4f a0 54 48 52 4f |O.WE.CAN|.GO.THRO|
|000010e0| 55 47 48 0d 20 73 74 61 | 20 73 65 65 64 73 76 2c |UGH. sta| seedsv,|
|000010f0| 78 20 3b a0 53 41 4d 45 | a0 53 45 51 55 45 4e 43 |x ;.SAME|.SEQUENC|
|00001100| 45 a0 44 55 52 49 4e 47 | a0 54 45 53 54 0d 20 64 |E.DURING|.TEST. d|
|00001110| 65 78 0d 20 62 70 6c 20 | 5d 6c 75 70 0d 20 73 74 |ex. bpl |]lup. st|
|00001120| 61 20 72 61 6d 30 20 3b | 70 55 54 a0 52 41 4e 44 |a ram0 ;|pUT.RAND|
|00001130| 4f 4d a0 44 41 54 41 a0 | 54 48 52 4f 55 47 48 a0 |OM.DATA.|THROUGH.|
|00001140| 41 4c 4c 0d 20 6c 64 61 | 20 23 24 32 30 20 3b a0 |ALL. lda| #$20 ;.|
|00001150| 4d 45 4d 4f 52 59 a0 42 | 45 46 4f 52 45 a0 54 45 |MEMORY.B|EFORE.TE|
|00001160| 53 54 49 4e 47 0d 20 73 | 74 61 20 70 6e 74 68 0d |STING. s|ta pnth.|
|00001170| 20 6c 64 78 20 23 3e 24 | 66 66 30 30 2d 24 32 30 | ldx #>$|ff00-$20|
|00001180| 30 30 0d 20 6c 64 79 20 | 23 30 0d 5d 6c 75 70 20 |00. ldy |#0.]lup |
|00001190| 6a 73 72 20 72 6e 64 0d | 20 73 74 61 20 28 70 6e |jsr rnd.| sta (pn|
|000011a0| 74 6c 29 2c 79 0d 20 69 | 6e 79 0d 20 62 6e 65 20 |tl),y. i|ny. bne |
|000011b0| 5d 6c 75 70 0d 20 69 6e | 63 20 70 6e 74 68 0d 20 |]lup. in|c pnth. |
|000011c0| 64 65 78 0d 20 62 6e 65 | 20 5d 6c 75 70 0d 20 73 |dex. bne| ]lup. s|
|000011d0| 74 61 20 72 61 6d 31 20 | 3b 66 49 4c 4c a0 52 41 |ta ram1 |;fILL.RA|
|000011e0| 4d a0 31 a0 41 4c 53 4f | 0d 20 6c 64 61 20 23 24 |M.1.ALSO|. lda #$|
|000011f0| 32 30 0d 20 73 74 61 20 | 70 6e 74 68 0d 20 6c 64 |20. sta |pnth. ld|
|00001200| 78 20 23 3e 24 66 66 30 | 30 2d 24 32 30 30 30 0d |x #>$ff0|0-$2000.|
|00001210| 5d 6c 75 70 20 6a 73 72 | 20 72 6e 64 0d 20 73 74 |]lup jsr| rnd. st|
|00001220| 61 20 28 70 6e 74 6c 29 | 2c 79 0d 20 69 6e 79 0d |a (pntl)|,y. iny.|
|00001230| 20 62 6e 65 20 5d 6c 75 | 70 0d 20 69 6e 63 20 70 | bne ]lu|p. inc p|
|00001240| 6e 74 68 0d 20 64 65 78 | 0d 20 62 6e 65 20 5d 6c |nth. dex|. bne ]l|
|00001250| 75 70 0d 20 6c 64 78 20 | 23 33 20 3b 72 45 54 52 |up. ldx |#3 ;rETR|
|00001260| 49 45 56 45 a0 53 45 45 | 44 a0 46 4f 52 a0 54 45 |IEVE.SEE|D.FOR.TE|
|00001270| 53 54 49 4e 47 0d 5d 6c | 75 70 20 6c 64 61 20 73 |STING.]l|up lda s|
|00001280| 65 65 64 73 76 2c 78 0d | 20 73 74 61 20 73 65 65 |eedsv,x.| sta see|
|00001290| 64 2b 31 2c 78 0d 20 64 | 65 78 0d 20 62 70 6c 20 |d+1,x. d|ex. bpl |
|000012a0| 5d 6c 75 70 0d 20 73 74 | 61 20 72 61 6d 68 61 6c |]lup. st|a ramhal|
|000012b0| 66 0d 3a 6c 73 20 6c 64 | 61 20 73 70 65 65 64 7a |f.:ls ld|a speedz|
|000012c0| 0d 20 73 74 61 20 73 70 | 65 65 64 20 3b 73 45 54 |. sta sp|eed ;sET|
|000012d0| a0 53 4c 4f 57 2f 46 41 | 53 54 a0 4d 4f 44 45 0d |.SLOW/FA|ST.MODE.|
|000012e0| 20 6c 64 61 20 23 31 0d | 20 73 74 61 20 62 61 6e | lda #1.| sta ban|
|000012f0| 6b 20 3b 69 4e 49 54 a0 | 42 41 4e 4b a0 28 31 3d |k ;iNIT.|BANK.(1=|
|00001300| 42 41 4e 4b a0 30 29 0d | 3a 6e 62 20 6c 64 61 20 |BANK.0).|:nb lda |
|00001310| 23 3e 24 32 30 30 30 20 | 3b 73 54 41 52 54 a0 41 |#>$2000 |;sTART.A|
|00001320| 54 a0 50 41 47 45 a0 24 | 32 30 0d 3a 6a 74 20 73 |T.PAGE.$|20.:jt s|
|00001330| 74 61 20 70 61 67 65 0d | 20 6a 73 72 20 74 65 73 |ta page.| jsr tes|
|00001340| 74 72 6e 67 20 3b 74 45 | 53 54 a0 24 32 30 a0 50 |trng ;tE|ST.$20.P|
|00001350| 41 47 45 53 a0 57 49 54 | 48 a0 43 55 52 52 a0 42 |AGES.WIT|H.CURR.B|
|00001360| 59 54 45 0d 20 6c 64 61 | 20 70 61 67 65 20 3b 6e |YTE. lda| page ;n|
|00001370| 45 58 54 a0 50 41 47 45 | 0d 20 63 6c 63 0d 20 61 |EXT.PAGE|. clc. a|
|00001380| 64 63 20 23 24 32 30 0d | 20 62 6e 65 20 3a 6a 74 |dc #$20.| bne :jt|
|00001390| 20 3b 69 47 4e 4f 52 45 | a0 24 65 30 30 30 2d 24 | ;iGNORE|.$e000-$|
|000013a0| 66 66 66 66 0d 20 64 65 | 63 20 62 61 6e 6b 0d 20 |ffff. de|c bank. |
|000013b0| 62 65 71 20 3a 6e 62 20 | 3b 64 4f a0 42 41 4e 4b |beq :nb |;dO.BANK|
|000013c0| 30 a0 3d a0 72 61 6d a0 | 31 0d 20 64 65 63 20 73 |0.=.ram.|1. dec s|
|000013d0| 70 65 65 64 7a 0d 20 62 | 6e 65 20 3a 72 65 74 0d |peedz. b|ne :ret.|
|000013e0| 20 6a 6d 70 20 3a 6e 73 | 20 3b 72 45 44 4f a0 49 | jmp :ns| ;rEDO.I|
|000013f0| 4e a0 53 4c 4f 57 a0 4d | 4f 44 45 0d 3a 72 65 74 |N.SLOW.M|ODE.:ret|
|00001400| 20 72 74 73 20 3b 62 41 | 43 4b a0 46 4f 52 a0 4e | rts ;bA|CK.FOR.N|
|00001410| 45 58 54 a0 47 4f a0 54 | 48 52 4f 55 47 48 0d 0d |EXT.GO.T|HROUGH..|
|00001420| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00001430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001450| 2d 2d 2d 2d 2d 0d 2a a0 | 72 4f 55 54 49 4e 45 a0 |-----.*.|rOUTINE.|
|00001460| 54 4f a0 54 45 53 54 a0 | 24 32 30 a0 50 41 47 45 |TO.TEST.|$20.PAGE|
|00001470| 53 a0 53 54 41 52 54 49 | 4e 47 a0 41 54 a0 70 61 |S.STARTI|NG.AT.pa|
|00001480| 67 65 a0 49 4e a0 42 41 | 4e 4b 0d 2a a0 48 45 4c |ge.IN.BA|NK.*.HEL|
|00001490| 44 a0 49 4e a0 62 61 6e | 6b a0 28 4e 4f 54 45 a0 |D.IN.ban|k.(NOTE.|
|000014a0| 62 61 6e 6b 3d 30 a0 49 | 53 a0 52 45 41 4c 4c 59 |bank=0.I|S.REALLY|
|000014b0| a0 72 61 6d a0 31 29 2e | 0d 2a 2d 2d 2d 2d 2d 2d |.ram.1).|.*------|
|000014c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000014f0| 74 65 73 74 72 6e 67 20 | 73 74 61 20 72 61 6d 68 |testrng |sta ramh|
|00001500| 61 6c 66 20 3b 73 45 54 | a0 46 4f 52 a0 43 41 4c |alf ;sET|.FOR.CAL|
|00001510| 4c 49 4e 47 a0 4b 45 52 | 4e 45 4c 0d 20 6c 64 61 |LING.KER|NEL. lda|
|00001520| 20 23 31 39 20 3b 68 4f | 4d 45 0d 20 6a 73 72 20 | #19 ;hO|ME. jsr |
|00001530| 63 68 72 6f 75 74 0d 20 | 6c 64 61 20 62 61 6e 6b |chrout. |lda bank|
|00001540| 0d 20 65 6f 72 20 23 27 | 31 27 0d 20 6a 73 72 20 |. eor #'|1'. jsr |
|00001550| 63 68 72 6f 75 74 20 3b | 73 48 4f 57 a0 43 55 52 |chrout ;|sHOW.CUR|
|00001560| 52 45 4e 54 a0 42 41 4e | 4b 0d 20 6c 64 61 20 70 |RENT.BAN|K. lda p|
|00001570| 61 67 65 0d 20 73 74 61 | 20 70 6e 74 68 20 3b 73 |age. sta| pnth ;s|
|00001580| 45 54 a0 55 50 a0 50 4f | 49 4e 54 45 52 a0 46 4f |ET.UP.PO|INTER.FO|
|00001590| 52 a0 54 45 53 54 a0 52 | 41 4e 47 45 0d 20 6c 64 |R.TEST.R|ANGE. ld|
|000015a0| 78 20 23 30 20 3b 6f 4e | a0 41 a0 50 41 47 45 a0 |x #0 ;oN|.A.PAGE.|
|000015b0| 42 4f 55 4e 44 41 52 59 | 0d 20 6a 73 72 20 70 72 |BOUNDARY|. jsr pr|
|000015c0| 6e 74 61 78 20 3b 70 52 | 49 4e 54 a0 53 54 41 52 |ntax ;pR|INT.STAR|
|000015d0| 54 a0 41 44 44 52 45 53 | 53 0d 20 6c 64 61 20 23 |T.ADDRES|S. lda #|
|000015e0| 27 2d 27 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |'-'. jsr| chrout.|
|000015f0| 20 6c 64 61 20 62 61 6e | 6b 0d 20 65 6f 72 20 23 | lda ban|k. eor #|
|00001600| 27 31 27 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |'1'. jsr| chrout.|
|00001610| 20 6c 64 61 20 70 61 67 | 65 0d 20 65 6f 72 20 23 | lda pag|e. eor #|
|00001620| 24 65 30 20 3b 63 4c 45 | 41 52 a0 43 41 52 52 59 |$e0 ;cLE|AR.CARRY|
|00001630| a0 49 46 46 a0 44 4f 49 | 4e 47 a0 24 65 30 2d 2d |.IFF.DOI|NG.$e0--|
|00001640| 0d 20 63 6d 70 20 23 31 | 0d 20 65 6f 72 20 23 24 |. cmp #1|. eor #$|
|00001650| 65 30 0d 20 61 64 63 20 | 23 3e 24 31 65 66 66 0d |e0. adc |#>$1eff.|
|00001660| 20 6c 64 78 20 23 3c 24 | 66 66 66 66 0d 20 6a 73 | ldx #<$|ffff. js|
|00001670| 72 20 70 72 6e 74 61 78 | 20 3b 70 52 49 4e 54 a0 |r prntax| ;pRINT.|
|00001680| 45 4e 44 a0 41 44 44 52 | 45 53 53 0d 20 6c 64 61 |END.ADDR|ESS. lda|
|00001690| 20 23 27 a0 27 0d 20 73 | 74 61 20 63 68 61 72 0d | #'.'. s|ta char.|
|000016a0| 20 6a 73 72 20 70 72 69 | 6d 6d 0d 20 74 78 74 20 | jsr pri|mm. txt |
|000016b0| 27 a0 a0 54 45 53 54 49 | 4e 47 a0 42 59 54 45 3a |'..TESTI|NG.BYTE:|
|000016c0| a0 27 30 30 0d 20 62 69 | 74 20 6d 6f 64 65 0d 20 |.'00. bi|t mode. |
|000016d0| 62 70 6c 20 3a 6e 6f 74 | 72 6e 64 0d 20 6a 73 72 |bpl :not|rnd. jsr|
|000016e0| 20 70 72 69 6d 6d 0d 20 | 74 78 74 20 27 a0 52 41 | primm. |txt '.RA|
|000016f0| 4e 44 4f 4d a0 27 30 30 | 0d 20 6a 6d 70 20 3a 6c |NDOM.'00|. jmp :l|
|00001700| 73 70 0d 3a 6e 6f 74 72 | 6e 64 20 6c 64 78 20 23 |sp.:notr|nd ldx #|
|00001710| 38 0d 20 6c 64 79 20 62 | 79 74 65 20 3b 70 52 49 |8. ldy b|yte ;pRI|
|00001720| 4e 54 a0 42 49 4e 41 52 | 59 a0 46 4f 52 4d a0 4f |NT.BINAR|Y.FORM.O|
|00001730| 46 a0 42 59 54 45 0d 3a | 73 68 77 62 79 74 65 20 |F.BYTE.:|shwbyte |
|00001740| 74 79 61 20 3b a0 42 45 | 49 4e 47 a0 54 45 53 54 |tya ;.BE|ING.TEST|
|00001750| 45 44 0d 20 61 73 6c 20 | 3b 73 48 49 46 54 a0 42 |ED. asl |;sHIFT.B|
|00001760| 49 54 a0 49 4e 54 4f a0 | 43 41 52 52 59 0d 20 74 |IT.INTO.|CARRY. t|
|00001770| 61 79 20 3b 73 41 56 45 | a0 52 45 53 54 a0 46 4f |ay ;sAVE|.REST.FO|
|00001780| 52 a0 4e 45 58 54 a0 49 | 54 45 52 41 54 49 4f 4e |R.NEXT.I|TERATION|
|00001790| 0d 20 6c 64 61 20 23 27 | 30 27 0d 20 61 64 63 20 |. lda #'|0'. adc |
|000017a0| 23 30 20 3b 63 4f 4e 56 | 45 52 54 a0 42 49 54 a0 |#0 ;cONV|ERT.BIT.|
|000017b0| 28 43 41 52 52 59 29 a0 | 49 4e 54 4f a0 41 53 43 |(CARRY).|INTO.ASC|
|000017c0| 49 49 0d 20 6a 73 72 20 | 63 68 72 6f 75 74 20 3b |II. jsr |chrout ;|
|000017d0| a0 41 4e 44 a0 50 52 49 | 4e 54 a0 49 54 0d 20 64 |.AND.PRI|NT.IT. d|
|000017e0| 65 78 0d 20 62 6e 65 20 | 3a 73 68 77 62 79 74 65 |ex. bne |:shwbyte|
|000017f0| 20 3b 6e 45 58 54 a0 42 | 49 54 0d 3a 6c 73 70 20 | ;nEXT.B|IT.:lsp |
|00001800| 6c 64 61 20 73 70 65 65 | 64 7a 20 3b 73 48 4f 57 |lda spee|dz ;sHOW|
|00001810| a0 53 50 45 45 44 a0 4d | 4f 44 45 0d 20 62 6e 65 |.SPEED.M|ODE. bne|
|00001820| 20 3a 66 61 73 74 0d 20 | 6a 73 72 20 70 72 69 6d | :fast. |jsr prim|
|00001830| 6d 0d 20 74 78 74 20 27 | a0 a0 53 4c 4f 57 27 30 |m. txt '|..SLOW'0|
|00001840| 30 0d 20 6a 6d 70 20 3a | 6f 76 0d 3a 66 61 73 74 |0. jmp :|ov.:fast|
|00001850| 20 6a 73 72 20 70 72 69 | 6d 6d 0d 20 74 78 74 20 | jsr pri|mm. txt |
|00001860| 27 a0 a0 46 41 53 54 27 | 30 30 0d 3a 6f 76 20 6a |'..FAST'|00.:ov j|
|00001870| 73 72 20 70 72 69 6d 6d | 0d 20 74 78 74 20 27 a0 |sr primm|. txt '.|
|00001880| 4d 4f 44 45 2e a0 a0 50 | 41 53 53 a0 23 27 30 30 |MODE...P|ASS.#'00|
|00001890| 0d 20 6c 64 61 20 70 61 | 73 6e 75 6d 2b 31 0d 20 |. lda pa|snum+1. |
|000018a0| 6c 64 78 20 70 61 73 6e | 75 6d 0d 20 6a 73 72 20 |ldx pasn|um. jsr |
|000018b0| 70 72 6e 74 61 78 0d 20 | 6c 64 78 20 62 61 6e 6b |prntax. |ldx bank|
|000018c0| 0d 20 73 74 61 20 72 61 | 6d 31 2c 78 20 3b 74 55 |. sta ra|m1,x ;tU|
|000018d0| 52 4e a0 4f 4e a0 43 55 | 52 52 45 4e 54 a0 52 41 |RN.ON.CU|RRENT.RA|
|000018e0| 4d a0 42 41 4e 4b 0d 20 | 6a 73 72 20 6e 75 6d 70 |M.BANK. |jsr nump|
|000018f0| 61 67 73 20 3b 70 41 47 | 45 a0 43 4f 55 4e 54 0d |ags ;pAG|E.COUNT.|
|00001900| 20 6c 64 79 20 23 30 0d | 20 6c 64 61 20 62 79 74 | ldy #0.| lda byt|
|00001910| 65 0d 20 62 69 74 20 6d | 6f 64 65 0d 20 62 70 6c |e. bit m|ode. bpl|
|00001920| 20 3a 6e 6f 72 6e 64 0d | 20 6a 6d 70 20 3a 72 6e | :nornd.| jmp :rn|
|00001930| 64 74 65 73 74 0d 3a 6e | 6f 72 6e 64 20 73 74 61 |dtest.:n|ornd sta|
|00001940| 20 28 70 6e 74 6c 29 2c | 79 20 3b 66 49 4c 4c a0 | (pntl),|y ;fILL.|
|00001950| 4d 45 4d 4f 52 59 a0 52 | 41 4e 47 45 a0 57 49 54 |MEMORY.R|ANGE.WIT|
|00001960| 48 a0 42 59 54 45 0d 20 | 63 6d 70 20 28 70 6e 74 |H.BYTE. |cmp (pnt|
|00001970| 6c 29 2c 79 20 3b 69 4d | 4d 45 44 49 41 54 45 a0 |l),y ;iM|MEDIATE.|
|00001980| 46 41 53 54 a0 54 45 53 | 54 0d 20 62 65 71 20 3a |FAST.TES|T. beq :|
|00001990| 31 0d 20 6a 73 72 20 3a | 65 72 72 0d 3a 31 20 69 |1. jsr :|err.:1 i|
|000019a0| 6e 79 0d 20 62 6e 65 20 | 3a 6e 6f 72 6e 64 0d 20 |ny. bne |:nornd. |
|000019b0| 69 6e 63 20 70 6e 74 68 | 0d 20 64 65 78 0d 20 62 |inc pnth|. dex. b|
|000019c0| 6e 65 20 3a 6e 6f 72 6e | 64 0d 20 6c 64 61 20 70 |ne :norn|d. lda p|
|000019d0| 61 67 65 20 3b 72 45 53 | 45 54 a0 50 4f 49 4e 54 |age ;rES|ET.POINT|
|000019e0| 45 52 a0 54 4f a0 52 41 | 4e 47 45 0d 20 73 74 61 |ER.TO.RA|NGE. sta|
|000019f0| 20 70 6e 74 68 0d 20 6c | 64 61 20 23 3e 24 32 30 | pnth. l|da #>$20|
|00001a00| 30 30 20 3b 70 4f 49 4e | 54 a0 62 61 73 6c 2c 68 |00 ;pOIN|T.basl,h|
|00001a10| a0 54 4f a0 47 52 a0 53 | 43 52 45 45 4e 0d 20 73 |.TO.GR.S|CREEN. s|
|00001a20| 74 61 20 62 61 73 68 0d | 20 6c 64 78 20 62 61 6e |ta bash.| ldx ban|
|00001a30| 6b 0d 5d 6c 75 70 20 73 | 74 61 20 72 61 6d 31 2c |k.]lup s|ta ram1,|
|00001a40| 78 0d 20 6c 64 61 20 28 | 70 6e 74 6c 29 2c 79 20 |x. lda (|pntl),y |
|00001a50| 3b 67 45 54 a0 42 59 54 | 45 a0 46 52 4f 4d a0 4d |;gET.BYT|E.FROM.M|
|00001a60| 45 4d 4f 52 59 0d 20 73 | 74 61 20 72 61 6d 30 0d |EMORY. s|ta ram0.|
|00001a70| 20 73 74 61 20 28 62 61 | 73 6c 29 2c 79 20 3b 73 | sta (ba|sl),y ;s|
|00001a80| 48 4f 57 a0 49 54 a0 4f | 4e a0 53 43 52 45 45 4e |HOW.IT.O|N.SCREEN|
|00001a90| 0d 20 69 6e 79 0d 20 62 | 6e 65 20 5d 6c 75 70 0d |. iny. b|ne ]lup.|
|00001aa0| 20 69 6e 63 20 70 6e 74 | 68 0d 20 69 6e 63 20 62 | inc pnt|h. inc b|
|00001ab0| 61 73 68 0d 20 6c 64 61 | 20 70 6e 74 68 0d 20 63 |ash. lda| pnth. c|
|00001ac0| 6d 70 20 23 24 66 66 0d | 20 62 65 71 20 3a 73 6b |mp #$ff.| beq :sk|
|00001ad0| 69 70 0d 20 6c 64 61 20 | 62 61 73 68 0d 20 63 6d |ip. lda |bash. cm|
|00001ae0| 70 20 23 24 34 30 0d 20 | 62 6c 74 20 5d 6c 75 70 |p #$40. |blt ]lup|
|00001af0| 0d 3a 73 6b 69 70 20 6c | 64 61 20 70 61 67 65 0d |.:skip l|da page.|
|00001b00| 20 73 74 61 20 70 6e 74 | 68 20 3b 72 45 53 45 54 | sta pnt|h ;rESET|
|00001b10| a0 52 41 4e 47 45 a0 50 | 4f 49 4e 54 45 52 0d 20 |.RANGE.P|OINTER. |
|00001b20| 6c 64 78 20 62 61 6e 6b | 0d 20 73 74 61 20 72 61 |ldx bank|. sta ra|
|00001b30| 6d 31 2c 78 20 3b 74 55 | 52 4e a0 4f 4e a0 43 55 |m1,x ;tU|RN.ON.CU|
|00001b40| 52 52 45 4e 54 a0 42 41 | 4e 4b 0d 20 6a 73 72 20 |RRENT.BA|NK. jsr |
|00001b50| 6e 75 6d 70 61 67 73 20 | 3b 63 4f 55 4e 54 a0 46 |numpags |;cOUNT.F|
|00001b60| 4f 52 a0 24 32 30 a0 50 | 41 47 45 53 0d 20 6c 64 |OR.$20.P|AGES. ld|
|00001b70| 61 20 62 79 74 65 0d 5d | 6c 75 70 20 63 6d 70 20 |a byte.]|lup cmp |
|00001b80| 28 70 6e 74 6c 29 2c 79 | 20 3b 69 53 a0 49 54 a0 |(pntl),y| ;iS.IT.|
|00001b90| 53 54 49 4c 4c a0 54 48 | 45 52 45 3f 0d 20 62 65 |STILL.TH|ERE?. be|
|00001ba0| 71 20 3a 32 0d 20 6a 73 | 72 20 3a 65 72 72 0d 3a |q :2. js|r :err.:|
|00001bb0| 32 20 69 6e 79 20 3b 79 | 45 53 a0 2d a0 43 4f 4e |2 iny ;y|ES.-.CON|
|00001bc0| 54 49 4e 55 45 a0 54 45 | 53 54 49 4e 47 0d 20 62 |TINUE.TE|STING. b|
|00001bd0| 6e 65 20 5d 6c 75 70 0d | 20 69 6e 63 20 70 6e 74 |ne ]lup.| inc pnt|
|00001be0| 68 0d 20 64 65 78 0d 20 | 62 6e 65 20 5d 6c 75 70 |h. dex. |bne ]lup|
|00001bf0| 0d 20 6c 64 61 20 73 70 | 65 65 64 7a 0d 20 62 65 |. lda sp|eedz. be|
|00001c00| 71 20 3a 72 65 74 0d 20 | 73 74 61 20 72 61 6d 30 |q :ret. |sta ram0|
|00001c10| 0d 20 6c 64 78 20 23 24 | 32 30 20 3b 63 48 45 43 |. ldx #$|20 ;cHEC|
|00001c20| 4b a0 43 52 4f 53 53 a0 | 42 41 4e 4b a0 54 52 41 |K.CROSS.|BANK.TRA|
|00001c30| 4e 53 46 45 52 0d 20 73 | 74 78 20 62 61 73 68 20 |NSFER. s|tx bash |
|00001c40| 3b a0 49 4e 54 45 47 52 | 49 54 59 a0 46 4f 52 a0 |;.INTEGR|ITY.FOR.|
|00001c50| 66 61 73 74 0d 20 6a 73 | 72 20 6e 75 6d 70 61 67 |fast. js|r numpag|
|00001c60| 73 0d 20 6c 64 61 20 23 | 27 3c 27 0d 20 73 74 61 |s. lda #|'<'. sta|
|00001c70| 20 63 68 61 72 0d 5d 6c | 75 70 20 6c 64 61 20 62 | char.]l|up lda b|
|00001c80| 79 74 65 0d 20 63 6d 70 | 20 28 62 61 73 6c 29 2c |yte. cmp| (basl),|
|00001c90| 79 0d 20 62 65 71 20 3a | 33 0d 20 6a 73 72 20 3a |y. beq :|3. jsr :|
|00001ca0| 65 72 72 0d 3a 33 20 65 | 6f 72 20 23 24 66 66 20 |err.:3 e|or #$ff |
|00001cb0| 3b 72 45 56 45 52 53 45 | a0 41 4c 4c a0 42 49 54 |;rEVERSE|.ALL.BIT|
|00001cc0| 53 a0 46 4f 52 a0 4f 54 | 48 45 52 0d 20 73 74 61 |S.FOR.OT|HER. sta|
|00001cd0| 20 28 62 61 73 6c 29 2c | 79 20 3b a0 44 49 52 45 | (basl),|y ;.DIRE|
|00001ce0| 43 54 49 4f 4e a0 54 45 | 53 54 0d 20 69 6e 79 0d |CTION.TE|ST. iny.|
|00001cf0| 20 62 6e 65 20 5d 6c 75 | 70 0d 20 69 6e 63 20 62 | bne ]lu|p. inc b|
|00001d00| 61 73 68 0d 20 69 6e 63 | 20 70 6e 74 68 0d 20 64 |ash. inc| pnth. d|
|00001d10| 65 78 0d 20 62 6e 65 20 | 5d 6c 75 70 0d 20 6c 64 |ex. bne |]lup. ld|
|00001d20| 61 20 23 27 3e 27 0d 20 | 73 74 61 20 63 68 61 72 |a #'>'. |sta char|
|00001d30| 20 3b 69 4e 44 49 43 41 | 54 45 a0 44 49 52 45 43 | ;iNDICA|TE.DIREC|
|00001d40| 54 49 4f 4e 0d 20 6c 64 | 61 20 70 61 67 65 0d 20 |TION. ld|a page. |
|00001d50| 73 74 61 20 70 6e 74 68 | 0d 20 6c 64 78 20 23 24 |sta pnth|. ldx #$|
|00001d60| 32 30 0d 20 73 74 78 20 | 62 61 73 68 0d 20 6c 64 |20. stx |bash. ld|
|00001d70| 78 20 62 61 6e 6b 0d 5d | 6c 75 70 20 73 74 61 20 |x bank.]|lup sta |
|00001d80| 72 61 6d 30 20 3b 68 49 | 47 48 a0 53 50 45 45 44 |ram0 ;hI|GH.SPEED|
|00001d90| a0 54 45 53 54 a0 4f 54 | 48 45 52 a0 44 49 52 45 |.TEST.OT|HER.DIRE|
|00001da0| 43 54 4e 0d 20 6c 64 61 | 20 28 62 61 73 6c 29 2c |CTN. lda| (basl),|
|00001db0| 79 20 3b 6e 4f 54 45 a0 | 54 48 41 54 a0 57 45 a0 |y ;nOTE.|THAT.WE.|
|00001dc0| 41 52 45 a0 54 45 53 54 | 49 4e 47 a0 54 48 45 0d |ARE.TEST|ING.THE.|
|00001dd0| 20 73 74 61 20 72 61 6d | 31 2c 78 20 3b a0 43 4f | sta ram|1,x ;.CO|
|00001de0| 4d 50 4c 49 4d 45 4e 54 | a0 4f 46 a0 54 48 45 a0 |MPLIMENT|.OF.THE.|
|00001df0| 42 59 54 45 a0 53 48 4f | 57 4e 0d 20 73 74 61 20 |BYTE.SHO|WN. sta |
|00001e00| 28 70 6e 74 6c 29 2c 79 | 0d 20 69 6e 79 0d 20 62 |(pntl),y|. iny. b|
|00001e10| 6e 65 20 5d 6c 75 70 0d | 20 69 6e 63 20 62 61 73 |ne ]lup.| inc bas|
|00001e20| 68 0d 20 69 6e 63 20 70 | 6e 74 68 0d 20 6c 64 61 |h. inc p|nth. lda|
|00001e30| 20 70 6e 74 68 0d 20 63 | 6d 70 20 23 24 66 66 0d | pnth. c|mp #$ff.|
|00001e40| 20 62 65 71 20 3a 6a 6e | 70 0d 20 6c 64 61 20 62 | beq :jn|p. lda b|
|00001e50| 61 73 68 0d 20 63 6d 70 | 20 23 24 34 30 0d 20 62 |ash. cmp| #$40. b|
|00001e60| 6c 74 20 5d 6c 75 70 0d | 3a 6a 6e 70 20 6a 73 72 |lt ]lup.|:jnp jsr|
|00001e70| 20 6e 75 6d 70 61 67 73 | 0d 20 6c 64 61 20 70 61 | numpags|. lda pa|
|00001e80| 67 65 0d 20 73 74 61 20 | 70 6e 74 68 0d 20 6c 64 |ge. sta |pnth. ld|
|00001e90| 61 20 62 79 74 65 0d 20 | 65 6f 72 20 23 24 66 66 |a byte. |eor #$ff|
|00001ea0| 20 3b 6e 4f 57 a0 54 45 | 53 54 a0 49 46 a0 54 48 | ;nOW.TE|ST.IF.TH|
|00001eb0| 45 a0 48 49 47 48 a0 53 | 50 45 45 44 0d 5d 6c 75 |E.HIGH.S|PEED.]lu|
|00001ec0| 70 20 63 6d 70 20 28 70 | 6e 74 6c 29 2c 79 20 3b |p cmp (p|ntl),y ;|
|00001ed0| a0 54 52 41 4e 53 46 45 | 52 a0 57 4f 52 4b 45 44 |.TRANSFE|R.WORKED|
|00001ee0| a0 43 4f 52 52 45 43 54 | 4c 59 0d 20 62 65 71 20 |.CORRECT|LY. beq |
|00001ef0| 3a 34 0d 20 6a 73 72 20 | 3a 65 72 72 0d 3a 34 20 |:4. jsr |:err.:4 |
|00001f00| 69 6e 79 0d 20 62 6e 65 | 20 5d 6c 75 70 0d 20 69 |iny. bne| ]lup. i|
|00001f10| 6e 63 20 70 6e 74 68 0d | 20 64 65 78 0d 20 62 6e |nc pnth.| dex. bn|
|00001f20| 65 20 5d 6c 75 70 0d 3a | 72 65 74 20 72 74 73 0d |e ]lup.:|ret rts.|
|00001f30| 0d 3a 65 72 72 20 70 68 | 61 0d 20 74 78 61 0d 20 |.:err ph|a. txa. |
|00001f40| 70 68 61 0d 20 74 79 61 | 0d 20 70 68 61 0d 20 6c |pha. tya|. pha. l|
|00001f50| 64 61 20 24 66 66 30 30 | 20 3b 73 41 56 45 a0 4d |da $ff00| ;sAVE.M|
|00001f60| 45 4d 4f 52 59 a0 53 54 | 41 54 55 53 0d 20 70 68 |EMORY.ST|ATUS. ph|
|00001f70| 61 0d 20 73 74 61 20 72 | 61 6d 68 61 6c 66 0d 20 |a. sta r|amhalf. |
|00001f80| 6c 64 61 20 23 37 0d 20 | 6a 73 72 20 63 68 72 6f |lda #7. |jsr chro|
|00001f90| 75 74 20 3b 72 49 4e 47 | a0 42 45 4c 4c a0 4f 4e |ut ;rING|.BELL.ON|
|00001fa0| a0 45 41 43 48 a0 45 52 | 52 4f 52 0d 20 6c 64 78 |.EACH.ER|ROR. ldx|
|00001fb0| 20 65 72 72 6e 75 6d 0d | 20 62 6e 65 20 3a 73 6b | errnum.| bne :sk|
|00001fc0| 70 0d 20 6a 73 72 20 70 | 72 69 6d 6d 0d 20 68 65 |p. jsr p|rimm. he|
|00001fd0| 78 20 30 64 30 64 0d 20 | 74 78 74 20 27 45 52 52 |x 0d0d. |txt 'ERR|
|00001fe0| 4f 52 53 3a 27 30 30 0d | 3a 73 6b 70 20 63 70 78 |ORS:'00.|:skp cpx|
|00001ff0| 20 23 32 30 2a 31 30 0d | 20 62 67 65 20 3a 62 61 | #20*10.| bge :ba|
|00002000| 63 6b 20 3b 69 47 4e 4f | 52 45 a0 41 46 54 45 52 |ck ;iGNO|RE.AFTER|
|00002010| a0 53 43 52 45 45 4e a0 | 46 49 4c 4c 53 a0 55 50 |.SCREEN.|FILLS.UP|
|00002020| 0d 20 74 79 61 20 3b 73 | 41 56 45 a0 41 44 52 53 |. tya ;s|AVE.ADRS|
|00002030| a0 4c 4f 57 a0 4f 46 a0 | 45 52 52 4f 52 0d 20 70 |.LOW.OF.|ERROR. p|
|00002040| 68 61 0d 20 69 6e 63 20 | 65 72 72 6e 75 6d 0d 20 |ha. inc |errnum. |
|00002050| 74 78 61 20 3b 3d a0 4f | 4c 44 a0 65 72 72 6e 75 |txa ;=.O|LD.errnu|
|00002060| 6d 0d 20 6c 64 78 20 23 | 33 20 3b 73 54 41 52 54 |m. ldx #|3 ;sTART|
|00002070| a0 41 54 a0 52 4f 57 a0 | 34 0d 5d 6c 75 70 20 73 |.AT.ROW.|4.]lup s|
|00002080| 65 63 0d 20 73 62 63 20 | 23 38 30 2f 38 0d 20 69 |ec. sbc |#80/8. i|
|00002090| 6e 78 0d 20 62 63 73 20 | 5d 6c 75 70 0d 20 61 64 |nx. bcs |]lup. ad|
|000020a0| 63 20 23 38 30 2f 38 0d | 20 61 73 6c 20 3b 2a 38 |c #80/8.| asl ;*8|
|000020b0| 0d 20 61 73 6c 0d 20 61 | 73 6c 0d 20 74 61 79 20 |. asl. a|sl. tay |
|000020c0| 3b 63 4f 4c 55 4d 4e 0d | 20 63 6c 63 20 3b 73 45 |;cOLUMN.| clc ;sE|
|000020d0| 54 a0 43 55 52 53 4f 52 | a0 50 4f 53 49 54 49 4f |T.CURSOR|.POSITIO|
|000020e0| 4e 0d 20 6a 73 72 20 70 | 6c 6f 74 0d 20 6c 64 61 |N. jsr p|lot. lda|
|000020f0| 20 62 61 6e 6b 0d 20 65 | 6f 72 20 23 27 31 27 0d | bank. e|or #'1'.|
|00002100| 20 6a 73 72 20 63 68 72 | 6f 75 74 20 3b 73 48 4f | jsr chr|out ;sHO|
|00002110| 57 a0 42 41 4e 4b a0 4f | 46 a0 45 52 52 4f 52 0d |W.BANK.O|F.ERROR.|
|00002120| 20 70 6c 61 20 3b a0 41 | 4e 44 a0 41 44 44 52 45 | pla ;.A|ND.ADDRE|
|00002130| 53 53 0d 20 74 61 78 0d | 20 6c 64 61 20 70 6e 74 |SS. tax.| lda pnt|
|00002140| 68 0d 20 6a 73 72 20 70 | 72 6e 74 61 78 0d 20 6c |h. jsr p|rntax. l|
|00002150| 64 61 20 63 68 61 72 20 | 3b 70 52 49 4e 54 a0 53 |da char |;pRINT.S|
|00002160| 50 41 43 45 a0 4f 52 a0 | 53 48 4f 57 a0 44 49 52 |PACE.OR.|SHOW.DIR|
|00002170| a0 4f 46 a0 54 48 45 0d | 20 6a 73 72 20 63 68 72 |.OF.THE.| jsr chr|
|00002180| 6f 75 74 20 3b a0 48 49 | 47 48 a0 53 50 45 45 44 |out ;.HI|GH.SPEED|
|00002190| a0 54 52 41 4e 53 46 45 | 52 a0 46 41 49 4c 55 52 |.TRANSFE|R.FAILUR|
|000021a0| 45 0d 3a 62 61 63 6b 20 | 70 6c 61 0d 20 73 74 61 |E.:back |pla. sta|
|000021b0| 20 24 66 66 30 30 20 3b | 72 45 50 4c 41 43 45 a0 | $ff00 ;|rEPLACE.|
|000021c0| 4d 45 4d 4f 52 59 a0 53 | 54 41 54 55 53 0d 20 70 |MEMORY.S|TATUS. p|
|000021d0| 6c 61 20 3b a0 41 4e 44 | a0 52 45 47 49 53 54 45 |la ;.AND|.REGISTE|
|000021e0| 52 53 0d 20 74 61 79 0d | 20 70 6c 61 0d 20 74 61 |RS. tay.| pla. ta|
|000021f0| 78 0d 20 70 6c 61 0d 20 | 72 74 73 0d 0d 3a 72 6e |x. pla. |rts..:rn|
|00002200| 64 74 65 73 74 20 6c 64 | 61 20 23 27 2a 27 20 3b |dtest ld|a #'*' ;|
|00002210| 75 53 45 a0 41 53 54 45 | 52 49 53 4b a0 54 4f a0 |uSE.ASTE|RISK.TO.|
|00002220| 4d 41 52 4b a0 45 52 52 | 4f 52 53 0d 20 73 74 61 |MARK.ERR|ORS. sta|
|00002230| 20 63 68 61 72 20 3b a0 | 46 52 4f 4d a0 52 4e 44 | char ;.|FROM.RND|
|00002240| a0 54 45 53 54 0d 20 6c | 64 79 20 23 30 0d 20 6a |.TEST. l|dy #0. j|
|00002250| 73 72 20 6e 75 6d 70 61 | 67 73 0d 5d 6c 75 70 20 |sr numpa|gs.]lup |
|00002260| 6a 73 72 20 72 6e 64 0d | 20 63 6d 70 20 28 70 6e |jsr rnd.| cmp (pn|
|00002270| 74 6c 29 2c 79 0d 20 62 | 65 71 20 3a 35 0d 20 6a |tl),y. b|eq :5. j|
|00002280| 73 72 20 3a 65 72 72 0d | 3a 35 20 69 6e 79 0d 20 |sr :err.|:5 iny. |
|00002290| 62 6e 65 20 5d 6c 75 70 | 0d 20 69 6e 63 20 70 6e |bne ]lup|. inc pn|
|000022a0| 74 68 0d 20 64 65 78 0d | 20 62 6e 65 20 5d 6c 75 |th. dex.| bne ]lu|
|000022b0| 70 0d 20 72 74 73 0d 0d | 6e 75 6d 70 61 67 73 20 |p. rts..|numpags |
|000022c0| 6c 64 61 20 23 24 64 66 | 20 3b 72 4f 55 54 49 4e |lda #$df| ;rOUTIN|
|000022d0| 45 a0 54 4f a0 4c 4f 41 | 44 a0 78 a0 57 49 54 48 |E.TO.LOA|D.x.WITH|
|000022e0| a0 24 32 30 0d 20 63 6d | 70 20 70 61 67 65 20 3b |.$20. cm|p page ;|
|000022f0| a0 55 4e 4c 45 53 53 a0 | 70 61 67 65 3d 24 65 30 |.UNLESS.|page=$e0|
|00002300| 2c a0 49 4e a0 57 48 49 | 43 48 0d 20 6c 64 61 20 |,.IN.WHI|CH. lda |
|00002310| 23 24 31 66 20 3b a0 43 | 41 53 45 a0 78 a0 47 45 |#$1f ;.C|ASE.x.GE|
|00002320| 54 53 a0 24 31 66 2c a0 | 54 4f a0 41 56 4f 49 44 |TS.$1f,.|TO.AVOID|
|00002330| 0d 20 61 64 63 20 23 30 | 20 3b a0 57 52 49 54 49 |. adc #0| ;.WRITI|
|00002340| 4e 47 a0 54 4f a0 24 66 | 66 2d 2d 0d 20 74 61 78 |NG.TO.$f|f--. tax|
|00002350| 0d 20 72 74 73 0d 0d 70 | 72 6e 74 61 78 20 6a 73 |. rts..p|rntax js|
|00002360| 72 20 70 72 62 79 74 65 | 20 3b 70 52 49 4e 54 a0 |r prbyte| ;pRINT.|
|00002370| 42 59 54 45 a0 49 4e a0 | 61 0d 20 74 78 61 20 3b |BYTE.IN.|a. txa ;|
|00002380| a0 54 48 45 4e a0 49 4e | a0 78 0d 70 72 62 79 74 |.THEN.IN|.x.prbyt|
|00002390| 65 20 70 68 61 20 3b 73 | 41 56 45 a0 54 4f a0 44 |e pha ;s|AVE.TO.D|
|000023a0| 4f a0 4c 4f 57 a0 4e 49 | 42 42 4c 45 0d 20 6c 73 |O.LOW.NI|BBLE. ls|
|000023b0| 72 20 3b 69 53 4f 4c 41 | 54 45 a0 48 49 47 48 a0 |r ;iSOLA|TE.HIGH.|
|000023c0| 4e 49 42 42 4c 45 0d 20 | 6c 73 72 0d 20 6c 73 72 |NIBBLE. |lsr. lsr|
|000023d0| 0d 20 6c 73 72 0d 20 6a | 73 72 20 70 72 6e 69 62 |. lsr. j|sr prnib|
|000023e0| 20 3b 70 52 49 4e 54 a0 | 48 49 47 48 a0 4e 49 42 | ;pRINT.|HIGH.NIB|
|000023f0| 42 4c 45 0d 20 70 6c 61 | 20 3b 72 45 43 41 4c 4c |BLE. pla| ;rECALL|
|00002400| a0 42 59 54 45 0d 20 61 | 6e 64 20 23 24 66 20 3b |.BYTE. a|nd #$f ;|
|00002410| 69 53 4f 4c 41 54 45 a0 | 4c 4f 57 a0 4e 49 42 42 |iSOLATE.|LOW.NIBB|
|00002420| 4c 45 0d 70 72 6e 69 62 | 20 6f 72 61 20 23 27 30 |LE.prnib| ora #'0|
|00002430| 27 20 3b 63 4f 4e 56 45 | 52 54 a0 4e 49 42 42 4c |' ;cONVE|RT.NIBBL|
|00002440| 45 a0 54 4f a0 41 53 43 | 49 49 0d 20 63 6d 70 20 |E.TO.ASC|II. cmp |
|00002450| 23 27 39 27 2b 31 0d 20 | 62 6c 74 20 3a 64 65 63 |#'9'+1. |blt :dec|
|00002460| 0d 20 61 64 63 20 23 27 | 41 27 2d 27 39 27 2d 32 |. adc #'|A'-'9'-2|
|00002470| 0d 3a 64 65 63 20 6a 6d | 70 20 63 68 72 6f 75 74 |.:dec jm|p chrout|
|00002480| 20 3b 73 48 4f 57 a0 4e | 49 42 42 4c 45 a0 26 a0 | ;sHOW.N|IBBLE.&.|
|00002490| 52 45 54 55 52 4e 0d 0d | 2a 2d 2d 2d 2d 2d 2d 2d |RETURN..|*-------|
|000024a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024c0| 2d 2d 0d 2a a0 61 a0 47 | 4f 4f 44 a0 41 4e 44 a0 |--.*.a.G|OOD.AND.|
|000024d0| 46 41 53 54 a0 52 41 4e | 44 4f 4d a0 23 a0 47 45 |FAST.RAN|DOM.#.GE|
|000024e0| 4e 45 52 41 54 4f 52 2e | 0d 2a a0 74 48 45 a0 62 |NERATOR.|.*.tHE.b|
|000024f0| 61 73 69 63 a0 72 6e 64 | a0 44 4f 45 53 a0 4e 4f |asic.rnd|.DOES.NO|
|00002500| 54 a0 44 45 53 45 52 56 | 45 a0 54 48 45 a0 4e 41 |T.DESERV|E.THE.NA|
|00002510| 4d 45 2e 0d 2a a0 72 4e | 44 a0 23 a0 48 45 4c 44 |ME..*.rN|D.#.HELD|
|00002520| a0 49 4e a0 73 65 65 64 | a0 28 33 32 a0 42 49 54 |.IN.seed|.(32.BIT|
|00002530| 53 29 2c a0 61 72 67 a0 | 55 53 45 44 0d 2a a0 46 |S),.arg.|USED.*.F|
|00002540| 4f 52 a0 53 43 52 41 54 | 43 48 a0 50 41 44 2e a0 |OR.SCRAT|CH.PAD..|
|00002550| a0 70 52 45 53 45 52 56 | 45 53 a0 78 2c a0 79 0d |.pRESERV|ES.x,.y.|
|00002560| 2a a0 72 45 54 55 52 4e | 53 a0 4d 53 42 a0 49 4e |*.rETURN|S.MSB.IN|
|00002570| a0 61 2e 0d 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.a..*---|--------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000025a0| 72 6e 64 20 6c 64 61 20 | 73 65 65 64 2b 34 0d 20 |rnd lda |seed+4. |
|000025b0| 61 73 6c 0d 20 73 74 61 | 20 61 72 67 2b 34 0d 20 |asl. sta| arg+4. |
|000025c0| 72 6f 74 20 33 0d 20 72 | 6f 74 20 32 0d 20 72 6f |rot 3. r|ot 2. ro|
|000025d0| 74 20 31 0d 20 73 65 63 | 0d 20 72 6f 6c 20 61 72 |t 1. sec|. rol ar|
|000025e0| 67 2b 34 0d 20 72 6f 6c | 20 61 72 67 2b 33 0d 20 |g+4. rol| arg+3. |
|000025f0| 72 6f 6c 20 61 72 67 2b | 32 0d 20 72 6f 6c 20 61 |rol arg+|2. rol a|
|00002600| 72 67 2b 31 0d 20 63 6c | 63 0d 20 61 64 64 20 34 |rg+1. cl|c. add 4|
|00002610| 0d 20 70 68 61 0d 20 61 | 64 64 20 33 0d 20 70 68 |. pha. a|dd 3. ph|
|00002620| 61 0d 20 61 64 64 20 32 | 0d 20 61 64 64 20 31 0d |a. add 2|. add 1.|
|00002630| 20 63 6c 63 0d 20 6c 64 | 61 20 61 72 67 2b 32 0d | clc. ld|a arg+2.|
|00002640| 20 61 64 63 20 73 65 65 | 64 2b 34 0d 20 73 74 61 | adc see|d+4. sta|
|00002650| 20 73 65 65 64 2b 32 0d | 20 6c 64 61 20 61 72 67 | seed+2.| lda arg|
|00002660| 2b 31 0d 20 61 64 63 20 | 73 65 65 64 2b 33 0d 20 |+1. adc |seed+3. |
|00002670| 73 74 61 20 73 65 65 64 | 2b 31 0d 20 70 6c 61 0d |sta seed|+1. pla.|
|00002680| 20 73 74 61 20 73 65 65 | 64 2b 33 0d 20 70 6c 61 | sta see|d+3. pla|
|00002690| 0d 20 73 74 61 20 73 65 | 65 64 2b 34 0d 20 6c 64 |. sta se|ed+4. ld|
|000026a0| 61 20 73 65 65 64 2b 31 | 20 3b 6d 4f 53 54 a0 53 |a seed+1| ;mOST.S|
|000026b0| 49 47 4e 49 46 a0 42 59 | 54 45 0d 20 72 74 73 0d |IGNIF.BY|TE. rts.|
|000026c0| 0d 73 65 65 64 73 76 20 | 64 73 20 34 0d 70 61 73 |.seedsv |ds 4.pas|
|000026d0| 6e 75 6d 20 64 61 20 30 | 0d 0d 20 65 72 72 20 5e |num da 0|.. err ^|
|000026e0| 24 31 63 30 30 0d | |$1c00. | |
+--------+-------------------------+-------------------------+--------+--------+
